home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
PACKAGES
/
FIELD.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
2KB
|
39 lines
;;; compiled by jwz@thalidomide on Thu Jul 2 16:34:49 1992
;;; from file /u/jwz/emacs19/lisp/packages/field.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(byte-code "└┴!¼é┬┬ç" [boundp buffer-fields nil] 2)
(fset 'add-field #[(start end &optional buffer protected data) "¼ép┴\n!½ä├\n!┴!½ä├!\nV½î┼\n)╟╚╔ \nTô╔ ô\n&èqêB))ç" [buffer markerp start marker-position end nil temp vector field make-marker protected data buffer-fields] 7 "\
Add a new field to BUFFER that starts at START (inclusive)and ends at
END (exclusive).
START and END can be character numbers or markers.
If PROTECTED is non-nil, then the field
will be protected from insertion and deletion.
ALIST (optional) is the initial value for the field's alist.
Returns the field object (which is actually a vector)."])
(byte-code "└┴Mê┬├Mç" [region-field #[nil "└┴ ┬ \"ç" [add-field region-beginning region-end] 3] protected-region-field #[nil "└┴ ┬ p├─%ç" [add-field region-beginning region-end t nil] 6]] 2)
(fset 'field-buffer '(macro . #[(field) "└ ┬Eç" [aref field 1] 3 "\
Return the buffer that FIELD is associated with."]))
(fset 'field-start '(macro . #[(field) "└┴\n├EDç" [1- aref field 2] 4 "\
Return the character number of the current starting point of FIELD"]))
(fset 'field-end '(macro . #[(field) "└ ┬Eç" [aref field 3] 3 "\
Return the character number of the current end point of FIELD"]))
(fset 'field-protected '(macro . #[(field) "└ ┬Eç" [aref field 4] 3 "\
Return t is FIELD is protected, nil otherwise."]))
(fset 'field-alist '(macro . #[(field) "└ ┬Eç" [aref field 5] 3 "\
Return the data associated with FIELD."]))
(fset 'set-field-protected '(macro . #[(field protected) "└ ┬Fç" [aset field 4 protected] 4 "\
Set the protection status of FIELD to PROTECTED."]))
(fset 'set-field-alist '(macro . #[(field alist) "└ ┬Fç" [aset field 5 alist] 4 "\
Set the data associate with FIELD to be ALIST."]))
(fset 'delete-field #[(field) "è┴Hqê┬\"ë)ç" [field 1 delq buffer-field-list] 3 "\
Delete field FIELD, in whichever buffer it belongs to."])